From cf8572a6888547451e6af461b374f3a5fde28f5d Mon Sep 17 00:00:00 2001 From: Justin Burkett Date: Tue, 23 Jul 2019 11:34:49 -0400 Subject: [PATCH] which-key-persistent-popup-p -> which-key-persistent-popup --- which-key.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/which-key.el b/which-key.el index 9b147bddae3..1d3c21d711f 100644 --- a/which-key.el +++ b/which-key.el @@ -453,7 +453,7 @@ prefixes in `which-key-paging-prefixes'" which-key-undo-key which-key-undo)) -(defvar which-key-persistent-popup-p nil +(defvar which-key-persistent-popup nil "Whether or not to disable `which-key--hide-popup'.") (defcustom which-key-hide-alt-key-translations t @@ -1083,7 +1083,7 @@ total height." (defun which-key--hide-popup () "This function is called to hide the which-key buffer." - (unless (or which-key-persistent-popup-p + (unless (or which-key-persistent-popup (member real-this-command which-key--paging-functions)) (setq which-key--last-try-2-loc nil) (setq which-key--pages-obj nil) -- 2.30.2